home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / transcript.asp < prev    next >
Encoding:
Text File  |  1997-04-24  |  2.3 KB  |  81 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% frmStudentID = session("id") %>
  3. <html>
  4.  
  5. <head>
  6. <meta name="GENERATOR" content="Microsoft Developer Studio">
  7. <meta http-equiv="Content-Type"
  8. content="text/html; charset=iso-8859-1">
  9. <title>Transcript</title>
  10. <link rel="STYLESHEET" href="Stylesheets/Grid/Style2.css">
  11. </head>
  12.  
  13. <body background="Images/Grid/Background/Back2.jpg"
  14. bgcolor="White">
  15. <basefont face="Arial, Helvetica, sans-serif">
  16.  
  17.  
  18. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  19. <tr>
  20. <th align="Left" nowrap bgcolor="Silver"
  21.     background="./Images/Grid/Navigation/Nav1.jpg"> <font
  22.     size="6"> Transcript </font> </th>
  23. </tr>
  24. <tr>
  25.    <td bgcolor="#FFFFCC">
  26.    <font size="-1">  For student ID <%=frmStudentID%>
  27.    </font> </td>
  28. </tr>
  29. </table>
  30. <%
  31.    '-- Establish Connection to Database
  32.    Set conn = Server.CreateObject("ADODB.Connection")
  33.    conn.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  34.    conn.CommandTimeout = Session("StateU_CommandTimeout")
  35.    conn.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  36.  
  37.    '-- Retrieve Transcript Records
  38.    set rsTranscript = Server.CreateObject("adodb.RecordSet")
  39.    rsTranscript.ActiveConnection = conn
  40.    rsTranscript.Open "select enrollment.classid" & _
  41.       ",title,grade from enrollment,classes " & _
  42.       "where classes.classid = enrollment.classid" & _
  43.       " AND studentid="&frmStudentID
  44. %>
  45. <!-- Transcript Table -->
  46. <TABLE BORDER=0 cellpadding=3>
  47. <TR bgcolor=silver>
  48.    <B><TD>ClassID</TD>
  49.    <TD>Title</TD>
  50.    <TD>Grade</TD></B>
  51. </TR>
  52. <TR bgcolor=white>
  53. <%
  54.    '-- Fill table with Transcript Records
  55.    Do Until rsTranscript.EOF
  56.       response.write "<TD>"&rsTranscript.fields("ClassID").value&"</TD>"
  57.       response.write "<TD>"&rsTranscript.fields("Title").value&"</TD>"
  58.  
  59.       'Convert grade to letter format
  60.       select case rsTranscript.fields("Grade")
  61.          case 0
  62.             grade = "F"
  63.          case 1
  64.             grade = "D"
  65.          case 2
  66.             grade = "C"
  67.          case 3
  68.             grade = "B"
  69.          case 4
  70.             grade = "A"
  71.          case else
  72.             grade = "In Progress"
  73.       end select
  74.       response.write "<TD>" & grade &"</TD>"
  75.       response.write "</TR><TR bgcolor=white>"
  76.       rsTranscript.MoveNext
  77.    Loop
  78. %>
  79. </TABLE>
  80. </BODY>
  81. </HTML>